home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_m.has < prev    next >
Text File  |  1998-08-26  |  5KB  |  230 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    dan_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    â_âjü[Åëè·ë╗
  22. *
  23. dan_init:
  24.     move.w    #8,C_H_X(a1)
  25.     move.w    #16,C_H_Y(a1)
  26.     move.w    #16,C_HD_X(a1)
  27.     move.w    #32,C_HD_Y(a1)
  28.     move.w    #40,C_MD_X1(a1)
  29.     move.w    #248,C_MD_X2(a1)
  30.     move.w    #32,C_MD_Y1(a1)
  31.     move.w    #256,C_MD_Y2(a1)
  32.     move.w    #5,C_SA_F(a1)
  33.     move.w    #5,C_SSA_F(a1)
  34.     move.l    #dan_motion,C_A_DT(a1)
  35.     move.l    #dan_display,C_PCG_D(a1)
  36.     move.l    #dan_move_data,C_JOY(a1)
  37.     move.l    #dan_attack_data,C_HIT_D(a1)
  38.     move.l    #dan_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     lea.l    pcg_data,a4
  42.     adda.l    #DAN,a4
  43.  
  44.     movea.l    a2,a6
  45.     move.w    #1568-1,d1
  46. @@:
  47.     move.l    (a4)+,(a2)+
  48.     dbra    d1,@b
  49.     adda.l    #15744,a6
  50.     move.w    #160-1,d1
  51. @@:
  52.     move.l    (a4)+,(a6)+
  53.     dbra    d1,@b
  54.  
  55.     move.w    C_COL(a1),d1
  56.     add.w    d1,d1
  57.     add.w    d1,d1
  58.     lea.l    dan_palette,a4
  59.     movea.l    0(a4,d1.w),a4
  60.     move.w    #8-1,d1
  61. @@:
  62.     move.l    (a4)+,(a3)+
  63.     dbra    d1,@b
  64.  
  65.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  66.     rts
  67.  
  68. *---------------------------------------
  69. *    â_âjü[ò\Ī
  70. *
  71. dan_display:
  72.     move.w    C_M_F(a1),d0
  73.     add.w    d0,d0
  74.     move.w    display_tbl(pc,d0.w),d0
  75.     jmp    display_tbl(pc,d0.w)
  76. *---------------------------------------
  77.     .even
  78. display_tbl:
  79.     .dc.w    dan_move-display_tbl,dan_attack-display_tbl
  80.     .dc.w    dan_hit-display_tbl,dan_win-display_tbl,dan_g-display_tbl
  81.     .dc.w    dan_attack-display_tbl
  82. *---------------------------------------
  83. dan_move:
  84.     move.w    C_CNT(a1),d0
  85.     add.w    d0,d0
  86.  
  87.     tst.w    C_LR_F(a1)
  88.     bne    @f
  89.     move.w    move_tbl_right(pc,d0.w),d0
  90.     jmp    move_tbl_right(pc,d0.w)
  91. @@:
  92.     move.w    move_tbl_left(pc,d0.w),d0
  93.     jmp    move_tbl_left(pc,d0.w)
  94. *---------------------------------------
  95.     .even
  96. move_tbl_left:
  97.     .dc.w    dan_n-move_tbl_left,dan_for-move_tbl_left
  98.     .dc.w    dan_back-move_tbl_left
  99. move_tbl_right:
  100.     .dc.w    dan_n-move_tbl_right,dan_back-move_tbl_right
  101.     .dc.w    dan_for-move_tbl_right
  102. *---------------------------------------
  103. dan_attack:
  104.     move.w    C_AK_F(a1),d0
  105.     add.w    d0,d0
  106.     move.w    d0,d1
  107.     add.w    d0,d0
  108.     add.w    d1,d0
  109.     move.w    C_AM_F(a1),d1
  110.     add.w    d1,d1
  111.     add.w    d1,d0
  112.     move.w    attack_tbl(pc,d0.w),d0
  113.     jmp    attack_tbl(pc,d0.w)
  114. *---------------------------------------
  115.     .even
  116. attack_tbl:
  117.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  118.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  119.     .dc.w    high_s-attack_tbl,high_a-attack_tbl,high_t-attack_tbl
  120.     .dc.w    dan_sa-attack_tbl,dan_sa-attack_tbl,dan_sa-attack_tbl
  121.     .dc.w    dan_ssa_s-attack_tbl,dan_ssa_a-attack_tbl,dan_ssa_t-attack_tbl
  122. *---------------------------------------
  123.     .include    dan_n.inc
  124. *---------------------------------------
  125.     .include    dan_am.inc
  126. *---------------------------------------
  127.     .include    dan_al.inc
  128. *---------------------------------------
  129.     .include    dan_ah.inc
  130. *---------------------------------------
  131.     .include    dan_hwg.inc
  132. *---------------------------------------
  133.     .include    dan_ss.inc
  134. *---------------------------------------
  135. dan_motion:
  136.     .dc.w    4,6,8
  137.     .dc.w    7,4,15
  138.     .dc.w    10,4,20
  139.     .dc.w    0,0,25
  140.     .dc.w    15,20,30
  141. dan_attack_data:
  142.     .dc.w    16,-8,8,8,16,16,2,0,1,10
  143.     .dc.w    16,-4,7,8,14,21,6,0,1,15
  144.     .dc.w    16,0,8,16,16,32,20,0,1,20
  145.     .dc.w    0,0,4,4,8,8,32,0,2,25
  146.     .dc.w    28,-4,12,12,24,24,80,0,1,30
  147. dan_move_data:
  148.     .dc.w     0, 0
  149.     .dc.w     0,-4
  150.     .dc.w     0, 4
  151.     .dc.w     0, 0
  152.     .dc.w    -4, 0
  153.     .dc.w    -4,-4
  154.     .dc.w    -4, 4
  155.     .dc.w     0, 0
  156.     .dc.w     4, 0
  157.     .dc.w     4,-4
  158.     .dc.w     4, 4
  159. dan_se_data:
  160.     .dc.l    adpcm_data+DAN01        * ÄπìUîéÄnô«é`écéoébél
  161.     .dc.w    $b904
  162.     .dc.w    2456
  163.     .dc.w    0
  164.     .dc.l    0                * ÆåìUîéÄnô«é`écéoébél
  165.     .dc.l    0
  166.     .dc.w    0
  167.     .dc.l    adpcm_data+DAN01
  168.     .dc.w    $f908
  169.     .dc.w    2456
  170.     .dc.w    0
  171.     .dc.l    0                * ÆåìUîéÄnô«é`écéoébél
  172.     .dc.l    0
  173.     .dc.w    0
  174.     .dc.l    0                * ÆåìUîéÄnô«é`écéoébél
  175.     .dc.l    0
  176.     .dc.w    0
  177.  
  178.     .dc.l    0                * ÄπìUîéö╗ÆΦÅoî╗é`écéoébél
  179.     .dc.l    0
  180.     .dc.w    0
  181.     .dc.l    adpcm_data+BUO            * ÆåìUîéö╗ÆΦÅoî╗é`écéoébél
  182.     .dc.w    $f908
  183.     .dc.w    942
  184.     .dc.w    0
  185.     .dc.l    0
  186.     .dc.l    0
  187.     .dc.w    0
  188.     .dc.l    adpcm_data+DAN01
  189.     .dc.w    $f908
  190.     .dc.w    2456
  191.     .dc.w    1
  192.     .dc.l    adpcm_data+BUO
  193.     .dc.w    $f900
  194.     .dc.w    942
  195.     .dc.w    1
  196.  
  197.     .dc.l    adpcm_data+DOSHU
  198.     .dc.w    $f908
  199.     .dc.w    1186
  200.     .dc.w    2
  201.     .dc.l    adpcm_data+DOSHU
  202.     .dc.w    $f904
  203.     .dc.w    1186
  204.     .dc.w    3
  205.     .dc.l    adpcm_data+DOSHU
  206.     .dc.w    $f904
  207.     .dc.w    1186
  208.     .dc.w    3
  209.     .dc.l    adpcm_data+DOSHU
  210.     .dc.w    $f904
  211.     .dc.w    1186
  212.     .dc.w    3
  213.     .dc.l    adpcm_data+DOSHU
  214.     .dc.w    $f904
  215.     .dc.w    1186
  216.     .dc.w    3
  217.  
  218.     .dc.l    adpcm_data+DAN02        * éjéné`écéoébél
  219.     .dc.w    $f908
  220.     .dc.w    2880
  221.     .dc.w    4
  222.  
  223.     .dc.l    adpcm_data+DAN03        * Åƒé┐é`écéoébél
  224.     .dc.w    292
  225.  
  226. dan_palette:
  227.     .dc.l    pal_data+DAN_C,pal_data+DAN_C+32
  228. *---------------------------------------
  229.     .end
  230.